home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / comline.zip / COMLINE.BAS < prev    next >
Encoding:
BASIC Source File  |  1990-10-20  |  3.2 KB  |  68 lines
  1. REM  COMLINE.BAS / COMLINE.EXE - Copyright 1990 Butterhoofs' Enterprises
  2. REM  Command line parameter generator for use with Spitfire BBS Ver. 3.0
  3. REM  Free unlimited usage rights granted to all registered Spitfire Sysops
  4.  
  5. CLS:DIM V$(33) ' Prepare array for variables
  6.  
  7. OPEN "SFDOORS.DAT" for INPUT as #1    ' Open and read in variables from
  8. FOR X% = 1 to 32            ' SfDoors.dat file
  9. INPUT #1, V$(X%)
  10. NEXT X%
  11. CLOSE #1
  12.  
  13. GETLASTNAME:                ' Trim to first space for last name
  14. FOR X% = 1 to LEN(V$(2))        ' and make variable of remaining chars.
  15.     Y% = X%
  16.     IF MID$(V$(2),X%,1)=" " then X%=LEN(V$(2))
  17. NEXT X%
  18. V$(33)=right$(V$(2),LEN(V$(2))-y%)
  19. FOR X% = 1 to LEN(V$(33))             'Replace any remaining spaces with "_"
  20.     IF MID$(V$(33),X%,1)=" " then MID$(V$(33),X%,1)="_"
  21. NEXT X%
  22.  
  23. OPEN "COMLINE.DAT" for INPUT as #1    ' Read in Command line description
  24. INPUT #1, COMLINE$
  25. CLOSE #1
  26.  
  27. FOR X% = 1 to LEN(COMLINE$)        ' Search command line for variables    
  28. IF MID$(COMLINE$,x%,2) = "@V" THEN GOSUB GETVARNUM ELSE GOSUB MAKELINE
  29. NEXT X%
  30. GOTO DOSHELL
  31.                                         ' get variable number in command line
  32. GETVARNUM:                              ' and add variable to new line
  33. VTEMP$=MID$(COMLINE$,X%+2,2)
  34. VNUM%=VAL(VTEMP$)
  35. SHELLINE$=SHELLINE$+V$(VNUM%)
  36. RETURN
  37.  
  38. MAKELINE:                               ' test for non-command character
  39. IF MID$(COMLINE$,x%,1) = "1" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
  40. IF MID$(COMLINE$,x%,1) = "2" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
  41. IF MID$(COMLINE$,x%,1) = "3" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
  42. IF MID$(COMLINE$,x%,1) = "4" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
  43. IF MID$(COMLINE$,x%,1) = "5" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
  44. IF MID$(COMLINE$,x%,1) = "6" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
  45. IF MID$(COMLINE$,x%,1) = "7" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
  46. IF MID$(COMLINE$,x%,1) = "8" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
  47. IF MID$(COMLINE$,x%,1) = "9" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
  48. IF MID$(COMLINE$,x%,1) = "0" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
  49. IF MID$(COMLINE$,x%,1) = "1" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
  50. IF MID$(COMLINE$,x%,1) = "2" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
  51. IF MID$(COMLINE$,x%,1) = "3" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
  52. IF MID$(COMLINE$,x%,1) = "4" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
  53. IF MID$(COMLINE$,x%,1) = "5" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
  54. IF MID$(COMLINE$,x%,1) = "6" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
  55. IF MID$(COMLINE$,x%,1) = "7" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
  56. IF MID$(COMLINE$,x%,1) = "8" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
  57. IF MID$(COMLINE$,x%,1) = "9" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
  58. IF MID$(COMLINE$,x%,1) = "0" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
  59. IF MID$(COMLINE$,x%,1) = "V" AND MID$(COMLINE$,x%-1,1) = "@" then GOTO SKIPME
  60. IF MID$(COMLINE$,x%,1) = "@" AND MID$(COMLINE$,x%+1,1) = "V" then GOTO SKIPME
  61. SHELLINE$=SHELLINE$+MID$(COMLINE$,x%,1)     ' add any normal chars to line
  62. SKIPME:
  63. RETURN
  64.  
  65. DOSHELL:                    ' Shell to dos w/ command line
  66. SHELL SHELLINE$
  67.  
  68. END